Namespace Kardex
Public Class AlmacenProducto
	Inherits Auditoria.Transaccion

	Private vAlmacenProductoId As Integer = -1
	Private vAlmacenId As Integer = -1
	Private vAlmacenNombre As string =""
	Private vProductoId As Integer = -1
	Private vProductoNombre As string =""
	Private vUbicacion As String = ""
	Private vCantidad As Integer = -1
	Private vEstado As Integer = -1

	Public Property AlmacenProductoId() As Integer
		Get
			Return vAlmacenProductoId
		End Get
		Set(ByVal Value As Integer)
			vAlmacenProductoId = Value
		End Set
	End Property

	Public Property AlmacenId() As Integer
		Get
			Return vAlmacenId
		End Get
		Set(ByVal Value As Integer)
			vAlmacenId = Value
		End Set
	End Property

	Public Property AlmacenNombre() as string
		Get
			Return vAlmacenNombre
		End Get
		Set(ByVal Value As string)
			vAlmacenNombre = Value
		End Set
	End Property

	Public Property ProductoId() As Integer
		Get
			Return vProductoId
		End Get
		Set(ByVal Value As Integer)
			vProductoId = Value
		End Set
	End Property

	Public Property ProductoNombre() as string
		Get
			Return vProductoNombre
		End Get
		Set(ByVal Value As string)
			vProductoNombre = Value
		End Set
	End Property

	Public Property Ubicacion() As String
		Get
			Return vUbicacion
		End Get
		Set(ByVal Value As String)
			vUbicacion = Value
		End Set
	End Property

	Public Property Cantidad() As Integer
		Get
			Return vCantidad
		End Get
		Set(ByVal Value As Integer)
			vCantidad = Value
		End Set
	End Property

	Public Property Estado() As Integer
		Get
			Return vEstado
		End Get
		Set(ByVal Value As Integer)
			vEstado = Value
		End Set
	End Property

	Sub New()
	End Sub

	Sub New(ByRef AlmacenProductoId As Integer, ByVal AlmacenId As Integer, ByVal ProductoId As Integer, ByVal Ubicacion As String, ByVal Cantidad As Integer, ByVal Estado As Integer)
		vAlmacenProductoId = AlmacenProductoId
		vAlmacenId = AlmacenId
		vProductoId = ProductoId
		vUbicacion = Ubicacion
		vCantidad = Cantidad
		vEstado = Estado
	End Sub

End Class



 Public Class AlmacenProductoCol   
 Inherits System.Collections.CollectionBase
Private _enmSortDirection As SortDirection
Public Sub New()
_enmSortDirection = SortDirection.Asc
End Sub
Public Sub Sort(ByVal sortExpression As String, ByVal sortDirection As SortDirection)
InnerList.Sort(New Comparer(sortExpression, SortDirection))
End Sub
Public Sub Sort(ByVal sortExpression As String)
InnerList.Sort(New Comparer(sortExpression, _enmSortDirection))
If _enmSortDirection = SortDirection.Asc Then
_enmSortDirection = SortDirection.Desc
Else
_enmSortDirection = SortDirection.Asc
End If
End Sub
Public Function Add(ByVal obj As AlmacenProducto) As Integer
Return MyBase.List.Add(obj)
End Function
Public Sub AddPrimero(ByVal obj As AlmacenProducto)
MyBase.List.Insert(0, obj)
End Sub
Public ReadOnly Property AlmacenProducto(ByVal Index As Integer) As AlmacenProducto
Get
Return CType(MyBase.List(Index), AlmacenProducto)
End Get
End Property
End Class
end namespace

